home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 21 / 021.d81 / category show (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  9.5 KB  |  240 lines
  1. 0 rem**********************************  ****                               ***
  2. 1 rem            jeopardy           ***  ****    designed by   shibley      ***
  3. 2 rem                               ***  **************************************
  4. 3 rem
  5. 4 rem
  6. 10 printchr$(142)chr$(8):gosub5000:goto100
  7. 14 z$="":qt=ti+10000:poke198,.
  8. 15 print"[209][157]";:forj=1to40:getx$:ifx$=""thennext:ifti<qtthen18
  9. 16 ifqt<tithenprint" [157]";:return
  10. 17 j=40:next:goto20
  11. 18 print" [157]";:forj=1to40:getx$:ifx$=""thennext:ifti<qtthen15
  12. 19 ifqt<tithenprint" [157]";:return
  13. 20 if(x$="[157]"orx$=chr$(20))andlen(z$)=.then15
  14. 21 ifx$=chr$(13)orti>qtthenprint" [157]";:return
  15. 22 ifx$="[157]"orx$=chr$(20)thenz$=left$(z$,len(z$)-1):print"[157]  [157][157]";:goto15
  16. 24 ifx$>"z"orx$<" "orx$=chr$(34)orx$=","orx$=":"orx$=";"orlen(z$)=zthen15
  17. 25 print"[152]"x$;:z$=z$+x$:goto15
  18. 30 x1=.:x2=.:x3=.:l=len(ww$):forj=1tol:x$=mid$(ww$,j,1):ifx$<>"\"then35
  19. 31 ifx1=.thenx1=j:goto35
  20. 32 ifx2=.thenx2=j:goto35
  21. 33 ifx3=.thenx3=j
  22. 35 next:an$=left$(ww$,x1-1):tc=val(mid$(ww$,x1+1,1)):p2$=right$(ww$,l-x3)
  23. 37 qu$=mid$(ww$,x1+2,x2-x1-2):p1$=mid$(ww$,x2+1,x3-x2-1):return
  24. 50 rr=.:ifz$=qu$orz$=p1$orz$=p2$thenrr=1:goto79
  25. 52 l=len(qu$):iflen(z$)<4orl<4then79
  26. 54 ifl=len(z$)then68
  27. 56 iflen(z$)>lthen64
  28. 58 x=.:forj=1tol-len(z$)+1:ifz$=mid$(qu$,j,len(z$))thenx=j
  29. 60 next:ifx>.thenrr=1:goto79
  30. 62 goto68
  31. 64 x=.:forj=1tolen(z$)-l+1:ifqu$=mid$(z$,j,l)thenx=j
  32. 66 next:ifx>.thenrr=1:goto79
  33. 68 iftc>1orleft$(z$,1)<>left$(qu$,1)then79
  34. 70 x=.:forj=lto1step-1:ifmid$(qu$,j,1)=" "thenx=j:j=1
  35. 72 next:y=.:forj=len(z$)to1step-1:ifmid$(z$,j,1)=" "theny=j:j=1
  36. 74 next:ifx=.ory=.then79
  37. 76 x$=right$(z$,len(z$)-y):ifx$=p1$orx$=p2$orx$=right$(qu$,l-x)thenrr=1
  38. 79 return
  39. 80 u=54272:pokeu+1,20:pokeu+5,9:pokeu+6,9:pokeu+24,15:pokeu+4,17
  40. 81 fork=1to10:next:pokeu+4,16:return
  41. 84 u=54272:pokeu+1,220:pokeu+5,9:pokeu+6,9:pokeu+24,15:pokeu+4,17
  42. 85 fork=.to4:next:pokeu+4,16:return
  43. 88 u=54272:pokeu+1,6:pokeu+5,9:pokeu+6,9:pokeu+24,15:pokeu+4,3
  44. 89 fork=.to10:next:pokeu+4,16:return
  45. 92 u=54272:pokeu+1,50:pokeu+5,9:pokeu+6,9:pokeu+24,15:pokeu+4,7
  46. 93 fork=.to4:next:pokeu+4,16:return
  47. 100 poke53280,.:poke53265,peek(53265)and139
  48. 101 poke53281,7:print"[147]                                        ";
  49. 105 forj=.to22:print"  ";:next
  50. 110 print"                                       [157][148] "
  51. 115 print"                       "
  52. 116 print"[145] [154]                      "
  53. 117 print" [154]  category showdown [154]  "
  54. 120 print"[145] [154]                      "
  55. 125 print"                       "
  56. 130 printspc(18)"[152]from":print"[144]shibley software"
  57. 133 poke53265,peek(53265)or16:gosub80
  58. 135 print"[152]name of player 1 ? ";:z=8:gosub14:ifz$=""thenz$="player 1"
  59. 136 z$=z$+left$(sp$,9-len(z$)):p$(1)=z$:print
  60. 140 print"[152]name of player 2 ? ";:z=8:gosub14:ifz$=""thenz$="player 2"
  61. 141 z$=z$+left$(sp$,9-len(z$)):p$(2)=z$:print
  62. 145 print"[145][145][145][145][152]"p$(1)"select response key;       [157][157][157][157][157][157]";:z=1:gosub14
  63. 146 print:r$(1)=z$:ifz$=""thenr$(1)="z"
  64. 150 print"[152]"p$(2)"select response key;       [157][157][157][157][157][157]";:gosub14
  65. 151 r$(2)=z$:print:ifz$=""thenr$(2)="/"
  66. 175 poke53280,15:poke53281,15:print"[147]":c$(1)=".":t=62
  67. 180 z=1:open2,8,2,"0:abc,s,r":input#2,z:close2:open15,8,15:print#15,"s0:abc"
  68. 181 ifz>t-5thenz=int(rnd(.)*4+1)
  69. 185 close15:open3,8,3,"0:abc,s,w":print#3,z+6:close3
  70. 190 y=.:forj=ztoz+5:y=y+1
  71. 200 c$(y)=ca$(j):print"loading category"y"- "c$(y)"":gosub80
  72. 210 open2,8,2,"0:"+c$(y)+",s,r":input#2,t(y):ifst=.then215
  73. 211 close2:print"**** check disk":forl=1to4000:next:goto200
  74. 215 fork=1tot(y):input#2,cb$(y,k):nextk:close2
  75. 220 fork=1to5
  76. 225 x=int(rnd(.)*val(right$(ti$,1))*t(y)):ifx<1orx>t(y)then225
  77. 226 ifcb$(y,x)=""then225
  78. 228 w$(y,k)=cb$(y,x):cb$(y,x)="":nextk
  79. 245 nextj:h=1:hh=h
  80. 249 h=1
  81. 250 gosub4050
  82. 251 gosub4000:th=.:tg=3
  83. 252 printbo$"[146][223]"p$(h)"[157]'s   choice[146][169]"
  84. 255 printbc$"[146]category = ";:z=1:gosub14:ifz$="c"then250
  85. 257 ifz$="q"thenprint"[147]":goto800
  86. 260 ifz$<"1"orz$>"6"orz$=""then255
  87. 261 ca=val(z$):forj=1to5:ifa$(ca,j)<>"   "thenj=5:goto263: rem   it is ok!
  88. 262 next:goto255:  rem   loadstar code       [not allow wrong category]
  89. 263 :
  90. 265 ca=val(z$):print"[146]"spc(39+ca*6)z$
  91. 285 printbc$spc(18)"question amt. = ";
  92. 290 z=3:gosub14:ifz$<>""then295
  93. 291 forj=1to5:ifa$(ca,j)<>"   "thenz$=right$(str$(j),1)+"00":j=5
  94. 292 next
  95. 295 am=val(z$):ifz$="c"then250
  96. 299 ifam>500oram<100then285
  97. 300 ifam<>val(a$(ca,am/100))then285
  98. 310 print"[146]"spc(37+ca*6);:aa=am/100:forj=1toaa:print"";:next:print"[145][145]";
  99. 315 print"[156]     [157][157][157][157][157] "a$(ca,aa)" [157][157][157][157][157]     ";:forj=1to300:next
  100. 320 print"[157][157][157][157][157][145][145]     [157][157][157][157][157] "a$(ca,aa)" [157][157][157][157][157]     ";:forj=1to300:next
  101. 330 print"[146][157][157][157][157][157][145][145]     [157][157][157][157][157] "a$(ca,aa)" [157][157][157][157][157]     ":ww$=w$(ca,aa)
  102. 335 gosub30:a$(ca,aa)="   "
  103. 350 poke53280,6:print"[147][156]"spc(20-(len(c$(ca))/2))c$(ca)""
  104. 355 printspc(15)"for  "am"":print"[159] [197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][144]"
  105. 375 x=39:iflen(an$)<40thenprintan$"":goto385
  106. 380 x=x-1:ifmid$(an$,x,1)<>" "then380
  107. 381 print" "left$(an$,x):printright$(an$,len(an$)-x)""
  108. 385 qt=ti+(len(an$)*7)+(tg*40):gosub92:poke198,.
  109. 387 getx$:ifx$=r$(1)andth<>1thenhh=1:goto400
  110. 390 ifx$=r$(2)andth<>2thenhh=2:goto400
  111. 392 ifti<qtthen387
  112. 394 forj=1to10:gosub92:next
  113. 395 print"[144]"pr$(tc)": [152]"qu$:forj=1to1000:next:goto575
  114. 400 print""spc(16)p$(hh)""
  115. 405 print"[144]"pr$(tc)": ";:
  116. 420 qt=ti+300+(len(an$)*9):z=25:z$="":poke198,.:gosub15:print
  117. 425 gosub50:ifrr=.then550
  118. 545 gosub84:print"[145]"spc(len(pr$(tc))+3)qu$sp$""
  119. 546 printspc(17)"[150]right":forj=1to2000:next:m(hh)=m(hh)+am:h=hh
  120. 549 goto575
  121. 550 gosub88:m(hh)=m(hh)-am
  122. 560 print:printspc(17)"wrong":forj=1to500:next:tg=.5:ifth>.then570
  123. 565 th=hh:print""sp$""sp$"":printsp$"":goto385
  124. 570 print"[145][145][145][144]"pr$(tc)": [152]"qu$sp$
  125. 575 x=.:forj=1to6:fork=1to5:ifa$(j,k)<>"   "thenx=1
  126. 580 next:next:ifx>.thenforj=1to3000:next:goto251
  127. 585 gosub80:poke53280,15:poke53281,.:print"[147][154]                      "
  128. 590 printspc(9)" [159] category show-down [154] "
  129. 595 printspc(9)"                      "
  130. 600 print"[158] the final category is : ";
  131. 605 f=int(rnd(.)*val(right$(ti$,1))*t):iff>t orf=.then605
  132. 610 y=.:forj=1to6:ifc$(j)=ca$(f)theny=1
  133. 620 next:ify=1then605
  134. 625 gosub80:printca$(f)"[150]":printp$(1)" has[159]"m(1)"   [150]"p$(2)" has[159]"m(2)""
  135. 630 xx=.:b(1)=.:b(2)=.:ifm(1)<1andm(2)<1then770
  136. 631 ifm(1)<1thenxx=1:goto650
  137. 632 ifm(2)<1thenxx=1:goto640
  138. 635 ifm(1)>m(2)then650
  139. 640 print"[154]"p$(1)" what's your wager ";:z=len(str$(m(1)))-1:gosub14:print""
  140. 645 b(1)=val(z$):xx=xx+1:ifxx>1then660
  141. 650 print"[154]"p$(2)" what's your wager ";:z=len(str$(m(2)))-1:gosub14:print""
  142. 655 b(2)=val(z$):xx=xx+1:ifxx<2then640
  143. 660 ifb(1)>m(1)thenb(1)=m(1)
  144. 662 ifb(2)>m(2)thenb(2)=m(2)
  145. 665 open2,8,2,"0:"+ca$(f)+",s,r":input#2,t(7):ifst=.then670
  146. 666 close2:print"[150]check disk";:goto665
  147. 670 x=int(rnd(.)*val(right$(ti$,1))*t(7)):ifx>=t(7)then670
  148. 675 ifx>.thenforj=1tox:input#2,x$:next
  149. 680 input#2,ww$:close2:gosub30
  150. 685 poke53280,4:print"[147][158]"spc(20-(len(ca$(f))/2))ca$(f)"":gosub80
  151. 690 x=39:xx=.:iflen(an$)<40thenprintan$"":goto700
  152. 695 x=x-1:ifmid$(an$,x,1)<>" "then695
  153. 696 print" "left$(an$,x):printright$(an$,len(an$)-x)""
  154. 700 ifm(1)<1then720
  155. 710 print"    [155] "p$(1)" what's your question":z=25:print"[154]"pr$(tc)": ";
  156. 715 gosub14:print"":a1$=z$
  157. 718 ifm(2)<1then730
  158. 720 print"     [155]"p$(2)" what's your question":z=25:print"[154]"pr$(tc)": ";
  159. 725 gosub14:print"":a2$=z$
  160. 730 print"[150]"pr$(tc)":"qu$sp$
  161. 735 print"";:ifm(1)<1thenprint"[145][145][145][145]";:goto750
  162. 740 z$=a1$:gosub50:ifrr=1thenprint"right   ":gosub84:m(1)=m(1)+b(1):goto749
  163. 745 m(1)=m(1)-b(1):gosub88:print"wrong   "
  164. 749 forj=1to600:next
  165. 750 print"";:ifm(2)<1then770
  166. 755 z$=a2$:gosub50:ifrr=1thenm(2)=m(2)+b(2):gosub84:print"right   ":goto770
  167. 760 print"wrong   ":gosub88:m(2)=m(2)-b(2)
  168. 770 print""p$(1)" you have [158]$"m(1)""
  169. 773 printp$(2)" you have [158]$"m(2)
  170. 780 poke198,.:forj=1to4000:getx$:ifx$<>""thenj=4000
  171. 783 next:gosub80:poke53280,4:poke53281,.:z$=p$(1):ifm(1)=m(2)thenz$="  a tie  "
  172. 785 ifm(1)<m(2)thenz$=p$(2)
  173. 790 print"[147][158]                  [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157] [150] ";
  174. 795 print"the winner  is [158] [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157] [150]    "z$"   [158] ";
  175. 800 print"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]                  ":printspc(13)"another  (y/n)"
  176. 805 getx$:ifx$<>""andx$<>"n"andx$<>"y"thengosub92:goto805
  177. 810 ifx$="y"thenrun
  178. 815 forj=1to200:next:gosub80:print"[159]"p$(1)" [153]"m(1)
  179. 816 print"[159]"p$(2)" [153]"m(2)""
  180. 817 poke788,49:load"hello connect",8:end
  181. 3999 stop
  182. 4000 poke53280,14:poke53265,peek(53265)and139:poke53281,15:print"[147]";
  183. 4005 forj=1to3:print"[154]                                        ";:next
  184. 4006 forj=1to5
  185. 4010 fork=1to3:print"[154]   [156]      [156]      [156]      [156]      [156]      [156]       ";
  186. 4015 next:print"[154]                                        ";
  187. 4020 next:print"[154] [157] 123456[156][145]";
  188. 4025 forj=1to5:print"";:fork=1to6:print""a$(k,j);:next:next
  189. 4030 print"";:forj=1to6:printleft$(c$(j),3)"";:next:
  190. 4032 poke53265,peek(53265)or16:gosub80:return
  191. 4050 poke788,52:poke53280,10:poke53265,peek(53265)and139:poke53281,2:print"[147]";
  192. 4055 print"                                        ";
  193. 4060 forj=.to22:print"  ";:next
  194. 4065 print"                                       [157][148] ":forj=1to6
  195. 4070 print"[150]category[144]"j"[150]is  [144]"c$(j)"":next:
  196. 4071 print"[206][205][206][205][206][205][206][205][206][205][206][205][206][205][206][205][206][205][206][205][206][205][206][205][206][205][206][205][206][205][206][205][206][205][206][205][206][205]":print"[150]"spc(13);
  197. 4075 ifm(2)>m(1)thenprintp$(2)"[155]"m(2)"[150]":printspc(13)p$(1)"[155]"m(1):goto4080
  198. 4076 printp$(1)"[155]"m(1)"[150]":printspc(13)p$(2)"[155]"m(2)
  199. 4080 print"[150]"p$(h)" has control of the board[158]":poke53265,peek(53265)or16
  200. 4085 gosub80:gosub4444:ifx$=""then5200
  201. 4086 poke788,49:return
  202. 4444 z$="           touch a key"
  203. 4445 printbo$z$left$(lr$,len(z$));:forj=1to30:getx$:ifx$=""thennext:goto4450
  204. 4447 j=30:next:return
  205. 4450 printleft$(sp$,len(z$))left$(lr$,len(z$));
  206. 4451 forj=1to25:getx$:ifx$=""thennext:goto4445
  207. 4452 j=25:next:return
  208. 5000 dimca$(62),a$(6,5),w$(6,5),cb$(6,20)
  209. 5001 a$(1,1)="100":a$(1,2)="200":a$(1,3)="300":a$(1,4)="400"
  210. 5005 a$(1,5)="500":forj=1to5:fork=2to6:a$(k,j)=a$(1,j):next:next
  211. 5006 sp$="                                      "
  212. 5008 lr$="[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"
  213. 5010 bo$=""
  214. 5012 bc$=""
  215. 5014 ca$(1)="sit-com":ca$(2)="home town":ca$(3)="animals":ca$(42)="authors"
  216. 5016 ca$(5)="oscars":ca$(6)="westerners"
  217. 5018 ca$(7)="50's":ca$(8)="comics":ca$(9)="movies":ca$(12)="star role"
  218. 5020 ca$(10)="cartoons":ca$(11)="mash":ca$(45)="sports":ca$(14)="30's"
  219. 5022 ca$(60)="40's":ca$(49)="60's":ca$(48)="musical":ca$(35)="football"
  220. 5024 ca$(19)="baseball":ca$(13)="acting name":ca$(21)="stage name"
  221. 5026 ca$(58)="academy":ca$(23)="tv hosts":ca$(24)="occupations"
  222. 5028 ca$(51)="superman":ca$(26)="addresses":ca$(27)="70's":ca$(37)="inventors"
  223. 5030 ca$(29)="radio":ca$(30)="nicknames":ca$(31)="tv detectives"
  224. 5032 ca$(32)="acronyms":ca$(33)="backup bands":ca$(4)="boxing"
  225. 5034 ca$(18)="capitals":ca$(36)="countries":ca$(28)="games"
  226. 5036 ca$(53)="hockey":ca$(39)="leaders":ca$(40)="metal/medal"
  227. 5038 ca$(41)="numbers":ca$(34)="numerics":ca$(43)="old testament"
  228. 5040 ca$(44)="big business":ca$(52)="presidents":ca$(46)="relatives"
  229. 5042 ca$(47)="space":ca$(17)="star trek":ca$(16)="states"
  230. 5044 ca$(50)="surname":ca$(61)="tales":ca$(20)="themes"
  231. 5046 ca$(38)="tv nicknames":ca$(54)="war":ca$(62)="water"
  232. 5048 ca$(57)="words":ca$(56)="automobiles":ca$(22)="us cities":ca$(25)="math"
  233. 5050 ca$(59)="modern music":ca$(15)="roots of rock":ca$(55)="computers"
  234. 5120 pr$(1)="who is ":pr$(2)="who are ":pr$(3)="what is ":pr$(4)="when is "
  235. 5122 pr$(5)="where is ":return
  236. 5200 gosub80:print"[147]program terminated[144]":poke788,49:end
  237. 5555 open15,8,15:print#15,"s0:jeopardy":close15:save"jeopardy",8:stop
  238. 6666 gosub5000:dimm$(63):forj=1to62:open2,8,2,"0:"+ca$(j)+",s,r":input#2,x$
  239. 6667 close2:open4,4:print#4,x$" - "ca$(j):close4:next
  240.